home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / stave.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  992 b   |  23 lines
  1. 100  REM The other day, I was out of music paper for jotting down new tunes
  2. 110  REM and the stores were closed or didn't carry this necessary item.
  3. 120  REM Armed with the trusty epson printer and some unruled paper the
  4. 130  REM following quicky was the result.  Hope it's useful for you - A. Centa
  5. 140  REM
  6. 150  REM Prints 10 staves on a sheet of paper suitable for trimming 8 1/2 x 11
  7. 160  REM Uses the epson underlining feature.
  8. 170  REM
  9. 180  WIDTH "LPT1:",132
  10. 190  LPRINT CHR$(27)+"1":            'set line space to 7/72"
  11. 200  LPRINT CHR$(27)+"-1":           'set underline mode on
  12. 210  FOR I=1 TO 3: LPRINT : NEXT I:  'space down from top of page
  13. 220  FOR K=1 TO 10:                  'staves on the page
  14. 230     FOR J=1 TO 5:                'lines to a staff
  15. 240        FOR I=1 TO 80:            'colums of a staff
  16. 250           LPRINT CHR$(95);       'the underline character
  17. 260           NEXT I
  18. 270        LPRINT
  19. 280        NEXT J
  20. 290     FOR I=1 TO 5: LPRINT: NEXT I 'space between the staves
  21. 300     NEXT K
  22. 310  LPRINT CHR$(12)+CHR$(27)+"@" :  'top of new page, clear settings
  23.